home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)abg.d64
/
printbootdata
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
65 lines
5 POKE53280,13:POKE53281,13
6 POKE 788, 52:PRINT"[147]"
7 FOR I = 1 TO 5
8 PRINT SPC(10):FOR JJ = 1 TO 21:PRINT"[192]";:NEXT JJ:PRINT:NEXT I
10 PRINT " TPUG INC.":PRINT
20 PRINT TAB(11)" BOOT DATA PRINTER ":PRINT:PRINT:PRINT
25 FOR TT = 1 TO 400 : NEXT TT
30 PRINT"CHOOSE ONE":PRINT
40 PRINT "1) PRINT PROGRAM INFORMATION":PRINT
42 PRINT "2) PRINT DISK DIRECTORY":PRINT
44 PRINT "3) RETURN TO AUTOBOOT PROGRAM":PRINT
46 PRINT "4) RETURN TO BASIC"
48 GOSUB 4000
50 GETA$:IF A$="" THEN GOTO 50
55 IF A$= "1" THEN GOTO 90
60 IF A$= "2" THEN GOTO 2100
65 IF A$= "3" THEN PRINT "[147]LOADING...":POKE 788,49:LOAD"AUTOBOOT",8
70 IF A$= "4" THEN POKE 788,49: PRINT"[147]":END
75 (null) TO 50
90 PRINT"[147]":PRINT TAB(15)"PRINTING...": SQ=0
100 OPEN 2,8,2,"BOOT.DATA"
200 OPEN 4,4,7
300 GOSUB 1000: GOSUB 1000
400 GET#2,A$: GOSUB 1000: GOSUB 800
500 GOSUB 1000: GOSUB 1000
550 IF SQ=0 GOTO 400
555 GOTO 7
600 :
700 REM MUNCH LINE FROM DISK
800 F=(1=1)
900 REM PRINT LINE FROM DISK
1000 CC=0: IF SQ THEN RETURN
1005 GET#2,A$: SQ=ST
1100 IF NOT F THEN PRINT#4,A$;: CC=CC+1: IF CC>39 THEN CC=0: PRINT#4
1200 IF A$<>CHR$(13) AND SQ=0 GOTO 1005
1300 F=0: IF SQ=0 THEN RETURN
1400 CLOSE 2: CLOSE 4
1500 PRINT "[147]": RETURN
2100 PRINT"[147]":PRINT TAB(15)"PRINTING...":PRINT
2200 OPEN 1,8,0,"$": Z$=CHR$(0)
2300 OPEN 4,4,7
2400 GET#1,X$,X$
2500 GET#1,X$,X$
2600 IF X$="" OR ST<>0 GOTO 3500
2700 GET#1,X$,Y$
2800 BS=ASC(X$+Z$)+256*ASC(Y$+Z$)
2900 BS$=MID$(STR$(BS),2)
3000 PRINTTAB(6):PRINT#4,BS$;" ";: PRINT BS$;" ";
3100 GET#1,X$
3200 IF X$="" THEN PRINT#4: PRINT: GOTO 2500
3300 PRINT#4,X$;: PRINT X$;
3400 GOTO 3100
3500 PRINT#4: PRINT: CLOSE1: CLOSE 4
3600 PRINT"[147]":GOTO 7
4000 REM BELL SOUND
4010 S=54272
4020 POKE S+4,20
4030 POKE S+1,60:POKE S+5,9
4040 POKE S+5,60:POKE S+6,9
4050 POKE S+15,40:POKE S+24,15
4060 POKE S+4,21
4070 FOR T=1 TO 500:NEXT T
4080 POKE S+4,20
4090 RETURN